﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
dim urls,act,page,bi,bit,bid
        urls=Request.QueryString("urls")
        if urls="" then urls="index.asp"
        qingtian.info
		if sid<>"Null" then
                Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
                bid=Request.QueryString("bid")
	        if bid="" then bid=1
	        if not isnumeric(bid) then bid=1
	        bid=clng(bid)
                act=Request.QueryString("act")
	        if act="" then act=1
	        if not isnumeric(act) then act=1
	        act=clng(act)
bi=qingtian.bi
bit=qingtian.bit
select case v
case "0"
we0="<br/>"
hr="-------------<br/>"
Randomize()
book="跳到第<input name='Page' format='*N' size='2' maxlength='5'/><anchor>页<go href='daolieb.asp?act="&act&"&amp;bid="&bid&"&amp;sid="&sidd&"&amp;run="& Int((9999) * Rnd() + 1) &"' method='post'><postfield name=""Page"" value=""$(Page:n)"" /></go></anchor><br/>"
%>
<card title="商品列表"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
Randomize()
book=""&dao&"<form action=""daolieb.asp?act="&act&"&amp;bid="&bid&"&amp;sid="&sidd&"&run="& Int((9999) * Rnd() + 1) &""" method=""post"">跳到第<input type=""text"" name=""Page"" value="""" format=""*N"" size=""2"" maxlength=""5""/><<input type=""submit"" value=""页"" /></form>"&we0&""
%>
<title>商品列表</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select

%>		
<%=qingtian.qingsav("102")%>
<%if act=3 then%>
<%=we%><a href="daolieb.asp?bid=1&amp;act=3&amp;sid=<%=sidd%>">鲜花</a>.<a href="daolieb.asp?bid=2&amp;act=3&amp;sid=<%=sidd%>">爱情</a>.<a href="daolieb.asp?bid=3&amp;act=3&amp;sid=<%=sidd%>">食品</a>.<a href="daolieb.asp?bid=4&amp;act=3&amp;sid=<%=sidd%>">服饰</a>.<a href="daolieb.asp?bid=5&amp;act=3&amp;sid=<%=sidd%>">证件</a>.<a href="daolieb.asp?bid=6&amp;act=3&amp;sid=<%=sidd%>">魔法</a>.<a href="daolieb.asp?bid=7&amp;act=3&amp;sid=<%=sidd%>">节日</a>.<a href="daolieb.asp?bid=8&amp;act=3&amp;sid=<%=sidd%>">玩具</a><%=we0%>
<%elseif act=1 or act=5 then%>
<%=we%><a href="daolieb.asp?bid=9&amp;act=1&amp;sid=<%=sidd%>">体力道具</a>.<a href="daolieb.asp?bid=10&amp;act=1&amp;sid=<%=sidd%>">魅力道具</a>.<a href="daolieb.asp?bid=11&amp;act=1&amp;sid=<%=sidd%>">趣味道具</a>.<a href="daolieb.asp?bid=16&amp;act=5&amp;sid=<%=sidd%>">头像/男</a>.<a href="daolieb.asp?bid=17&amp;act=5&amp;sid=<%=sidd%>">头像/女</a><%=we0%>
<%elseif act=4 then%>
<%=we%><a href="daolieb.asp?bid=1&amp;act=4&amp;sid=<%=sidd%>">鲜花</a>.<a href="daolieb.asp?bid=2&amp;act=4&amp;sid=<%=sidd%>">爱情</a>.<a href="daolieb.asp?bid=3&amp;act=4&amp;sid=<%=sidd%>">食品</a>.<a href="daolieb.asp?bid=4&amp;act=4&amp;sid=<%=sidd%>">服饰</a>.<a href="daolieb.asp?bid=5&amp;act=4&amp;sid=<%=sidd%>">证件</a>.<a href="daolieb.asp?bid=6&amp;act=4&amp;sid=<%=sidd%>">魔法</a>.<a href="daolieb.asp?bid=7&amp;act=4&amp;sid=<%=sidd%>">节日</a>.<a href="daolieb.asp?bid=8&amp;act=4&amp;sid=<%=sidd%>">玩具</a><%=we0%>
<%elseif act=2 or act=6 then%>
<%=we%><a href="daolieb.asp?bid=9&amp;act=2&amp;sid=<%=sidd%>">体力道具</a>.<a href="daolieb.asp?bid=10&amp;act=2&amp;sid=<%=sidd%>">魅力道具</a>.<a href="daolieb.asp?bid=11&amp;act=2&amp;sid=<%=sidd%>">趣味道具</a>.<a href="daolieb.asp?bid=12&amp;act=2&amp;sid=<%=sidd%>">积分道具</a>.<a href="daolieb.asp?bid=13&amp;act=2&amp;sid=<%=sidd%>">货币道具</a>.<a href="daolieb.asp?bid=14&amp;act=2&amp;sid=<%=sidd%>">VIP道具</a>.<a href="daolieb.asp?bid=15&amp;act=6&amp;sid=<%=sidd%>">极品勋章</a><%=we0%>
<%end if%>
<%=dao%>==商品列表==<%=we0%><%=hr%>
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql1 = "select [nid],[name],[tupic],[paym],[zbit],[zmeili],[ztili],[zjifen],[zvip],[xunzan],[touxian] from [qingtian_shangpin] where [bitt]="&bid&" and [bip]="&act&" order by [id] asc"
		Rs.Open Sql1,conn,1,1
		if not (rs.bof and rs.eof) then
				Rs.PageSize = 5	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage


		For i=1 to  Rs.PageSize
		If Rs.Eof Then
			exit For
		End If
%>
<%=we%><img src="<%=rs(2)%>" alt="<%=qingtian.utf8(rs(1))%>" noselect = "true"/><br/><a href="viewdaoju.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs(1))%></a>[<a href="pay.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>">购买</a>]<%=we0%><%=sou%>
<% if rs(5)<>0 then %>
魅力:+<%=zi%><%=rs(5)%><%=zi0%>,
<% end if %>
<% if rs(6)<>0 then %>
体力:+<%=zi%><%=rs(6)%><%=zi0%>,
<% end if %>
<% if rs(7)<>0 then %>
积分:+<%=zi%><%=rs(7)%><%=zi0%>,
<% end if %>
<% if rs(4)<>0 then %>
<%=qingtian.bi%>:+<%=zi%><%=rs(4)%><%=zi0%>,
<% end if %>
<% if rs(8)<>0 then %>
vip:+<%=zi%><%=rs(8)%><%=zi0%>个月,
<% end if %>
<% if act=1 or act=3  or act=5 then %>
售价:<%=zi%><%=rs(3)%><%=bi%><%=zi0%><%=we0%>
<% end if %>
<% if act=2 or act=4  or act=6 then %>
售价:<%=zi%><%=rs(3)%><%=bit%><%=zi0%><%=we0%>
<% end if %>



<%			
	 	Rs.MoveNext
	  	Next

   		if rs.PageCount >1 then
     		    Response.Write dao
    		End If
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='daolieb.asp?act="&act&"&amp;bid="&bid&"&amp;page=" & Page + 1 & "&amp;sid="&sidd&"'>下一页</a>")
    		End If
       
    		If Page > 1 And Page < rs.PageCount Then
    		    Response.Write("|")
    		End If
        
    		If Page > 1 Then
    		    Response.Write("<a href='daolieb.asp?act="&act&"&amp;bid="&bid&"&amp;page=" & Page - 1 & "&amp;sid="&sidd&"'>上一页</a>"&we0&"")
    		Elseif rs.PageCount >1 then
    		    Response.Write we0
    		End If
            
    		Randomize()
    
    		If rs.PageCount > 2 Then
    		    %>
		<%=book%>
		<%
     		    Response.Write(""&we&"[第"&Page&"/总"&rs.PageCount&"页/"&rs.RecordCount&"条]"&we0&"")
    		End If
		else
     		    Response.Write(""&sou&"暂无商品!"&we0&"")
		end if
		Rs.close


	set rs=nothing
%>
<%=hr%>
<%=qingtian.qingsav("103")%><%=we%><a href="fans.asp?sid=<%=sidd%>">我的好友</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="chuwu.asp?sid=<%=sidd%>">储物箱</a><%=we0%>                     
<%

else
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/daolieb.asp?act="&act&"@@bid="&bid&"@@sid="&sidd&"@@urls="&urls

end if

end Function
%>
